home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / machack / Hacks95 / IsNative.sit / Is Native / MyExitToShell.c < prev    next >
Text File  |  1995-06-24  |  503b  |  28 lines
  1. //
  2. // File:    MyExitToShell.c
  3. // Project:    IsNative.π
  4. // Author:    Glenn L. Austin
  5. //            Symantec Corporation
  6. //
  7. #include "IsNative.h"
  8.  
  9. pascal void MyExitToShell(void)
  10. {
  11.     long        oldA4 = SetA4World();
  12.     MyAppInfo    *info = FindAppInfo(LMGetCurApName());
  13.     
  14.     if (info)
  15.     {
  16.         THz        cZone = GetZone();
  17.         long    ofs = info - *glob->appInfo;
  18.         char    c;
  19.         
  20.         SetZone(SystemZone());
  21.         Munger((Handle) glob->appInfo, ofs, nil, sizeof(MyAppInfo), &c, 0);
  22.         SetZone(cZone);
  23.     }
  24.     
  25.     (*glob->oldE2STrap)();
  26.     
  27.     RestoreA4World(oldA4);
  28. }